SVM Multimedia Villagina 2/Villagina_2.iso/mac/SVMM 2/Village/ECOLE/IMPRIM/IMPRIM.DIR/00054_Script_54

Text File | 1995-10-19 | 3KB | 99 lines

on startmovie
  global nom
  set nom to ""
  cursor 200
  puppetsprite 46, true
  puppetsprite 45, true
  set the loch of sprite 46 to the mouseh
  set the locv of sprite 46 to the mousev
  set the loch of sprite 45 to the mouseh
  set the locv of sprite 45 to the mousev
end startmovie

on idle
  set the loch of sprite 46 to the mouseh
  set the locv of sprite 46 to the mousev
  set the loch of sprite 45 to the mouseh
  set the locv of sprite 45 to the mousev
  if soundbusy(1) then
    if (the mousedown) then
      if ((the clickon >= 1) and (the clickon <= 12)) then
        sound stop 1
      end if
    end if
  end if
end idle

on illumine spr,spr_mouse
  global nom,num_sprite
  puppetsprite spr,true
  if sprite spr_mouse intersects spr then
    if ((the name of cast (the castnum of sprite 40) contains "aide") and (spr = num_sprite))  then
      nothing
    else
      set num_sprite to spr
      set nom to "aide" && (the name of cast (the castnum of sprite spr))
      puppetsprite 40,true
      set the castnum of sprite 40 to the number of cast nom
      updatestage
    end if
  else
    if (spr = num_sprite) then
      puppetsprite spr,false
      puppetsprite 40,false
      set num_sprite to 0
      updatestage
    end if
  end if
end illumine

on crop piece
  puppetsprite piece, true
  set the moveablesprite of sprite piece to true
  repeat with V = 19 to 21
    puppetsprite V, true
    if (the name of cast (the castnum of sprite V)) contains (the name of cast (the castnum of sprite piece)) then
      if the mouseup then
        if sprite V intersects piece then
          set the visible of sprite V to true
          set the visible of sprite piece to false
          set the castnum of sprite 46 to the number of cast 38
        else
          set the castnum of sprite 46 to the number of cast 38
          repeat with k = 19 to 21
            if the mouseup then
              if ((sprite piece intersects k)and k <> V) then
                puppetsprite piece, false
                set the castnum of sprite 46 to the number of cast 38
                updatestage
              else
                puppetsprite piece, false
                updatestage
              end if
            end if
          end repeat
        end if
      end if
    end if
  end repeat
  updatestage
  if the mousedown then
    if the clickon = 25 then
      set the castnum of sprite 46 to the number of cast 20
      set the castnum of sprite 25 to the number of cast 28
    else
      if the clickon = 23 then
        set the castnum of sprite 46 to the number of cast 20
        set the castnum of sprite 23 to the number of cast 30
      else
        if the clickon = 24 then
          set the castnum of sprite 24 to the number of cast 32
          set the castnum of sprite 46 to the number of cast 20
          updatestage
        end if
      end if
    end if
  end if
end crop